' Nonsence. Do not use it
Namespace OpenArchive
	Namespace Document
        Public Class ArchiveProperties
            Friend m_id As Long
            Friend m_archive As Archive

            Public Property ID() As Long
                Get
                    Return m_id
                End Get
                Friend Set(ByVal value As Long)
                    m_id = value
                End Set
            End Property
            Public ReadOnly Property IsOffline() As Boolean
                Get
                    'Read from Volumetable
                End Get
            End Property
            Public ReadOnly Property VolumeID() As Integer
                Get
                    ' Read from Doctable
                End Get
            End Property
            Public Property Archive() As Archive
                Get
                    Return m_archive
                End Get
                Friend Set(ByVal value As Archive)
                    m_archive = value
                End Set
            End Property
        End Class
	End Namespace
End Namespace




